unit uAppCmdLineParams;

interface

uses
  uDZProcess;

type
  TAppCmdLineParams = class(TDzCmdLineParams)
  private
    fLogType: string;
    fRunMode: TDzExecuteMode;
    fDebugMode: Boolean;
    fPort: Integer;
  published
    property RunMode: TDzExecuteMode read fRunMode write fRunMode;
    property LogType: string read fLogType write fLogType;
    property DebugMode: Boolean read fDebugMode write fDebugMode;
    property Port: Integer read fPort write fPort; 
  end;

var
  CmdLineParams: TAppCmdLineParams;

implementation

initialization
  CmdLineParams := TAppCmdLineParams.Create;
  CmdLineParams.RunMode := pemService;
  CmdLineParams.LogType := 'File';
  ParseCmdLine(CmdLineParams);
  
finalization
  CmdLineParams.Free;  

end.
